object frmConnect: TfrmConnect
  Left = 519
  Top = 309
  BorderStyle = bsDialog
  Caption = #1057#1086#1077#1076#1080#1085#1077#1085#1080#1077' '#1089' '#1041#1044
  ClientHeight = 237
  ClientWidth = 423
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 8
    Top = 208
    Width = 25
    Height = 25
  end
  object lblKeyboard: TLabel
    Left = 10
    Top = 210
    Width = 21
    Height = 21
    Alignment = taCenter
    AutoSize = False
    Caption = 'EN'
    Color = clNavy
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    Layout = tlCenter
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 423
    Height = 201
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 30
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1057#1077#1088#1074#1077#1088':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 62
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1041#1044':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 94
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1056#1086#1083#1100':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label4: TLabel
      Left = 8
      Top = 126
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 158
      Width = 90
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #1055#1072#1088#1086#1083#1100':'
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object eServer: TEdit
      Left = 104
      Top = 28
      Width = 300
      Height = 21
      TabStop = False
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
      OnClick = bOptionsClick
    end
    object eDbPath: TEdit
      Left = 104
      Top = 60
      Width = 300
      Height = 21
      TabStop = False
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 1
      OnClick = bOptionsClick
    end
    object eLgName: TEdit
      Left = 104
      Top = 124
      Width = 300
      Height = 21
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnKeyDown = eLgNameKeyDown
    end
    object ePwd: TEdit
      Left = 104
      Top = 156
      Width = 300
      Height = 21
      BevelInner = bvSpace
      BevelKind = bkFlat
      BorderStyle = bsNone
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      ParentFont = False
      PasswordChar = '*'
      TabOrder = 4
      OnKeyDown = eLgNameKeyDown
    end
    object RolesList: TDBLookupComboboxEh
      Left = 104
      Top = 92
      Width = 300
      Height = 21
      AlwaysShowBorder = True
      AutoSize = False
      EditButtons = <>
      Font.Charset = RUSSIAN_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Verdana'
      Font.Style = []
      Flat = True
      KeyField = 'RDB$ROLE_NAME'
      ListField = 'RUSSNAME'
      ListSource = dscRoles
      ParentFont = False
      TabOrder = 2
      Visible = True
      OnKeyDown = eLgNameKeyDown
    end
    object eLastRole: TEdit
      Left = 6
      Top = 90
      Width = 39
      Height = 21
      TabStop = False
      TabOrder = 5
      Visible = False
    end
  end
  object bLogin: TButton
    Left = 120
    Top = 208
    Width = 91
    Height = 25
    Caption = #1055#1086#1076#1082#1083#1102#1095#1080#1090#1100#1089#1103
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    OnClick = bLoginClick
  end
  object bOptions: TButton
    Left = 216
    Top = 208
    Width = 91
    Height = 25
    Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1072
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = bOptionsClick
  end
  object bCancel: TButton
    Left = 312
    Top = 208
    Width = 91
    Height = 25
    Caption = #1054#1090#1084#1077#1085#1072
    Font.Charset = RUSSIAN_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ModalResult = 2
    ParentFont = False
    TabOrder = 3
  end
  object dbRoles: TpFIBDatabase
    DBName = ':'
    DBParams.Strings = (
      'password=cconnect'
      'user_name=CCONNECT'
      'lc_ctype=WIN1251'
      'sql_role_name=ICONNECT')
    DefaultTransaction = trRoles
    SQLDialect = 3
    Timeout = 0
    DesignDBOptions = []
    WaitForRestoreConnect = 0
    Left = 214
    Top = 12
  end
  object trRoles: TpFIBTransaction
    DefaultDatabase = dbRoles
    TimeoutAction = TARollback
    Left = 252
    Top = 12
  end
  object dscRoles: TDataSource
    DataSet = dsRoles
    Left = 244
    Top = 56
  end
  object PropStorage: TPropStorageEh
    Section = 'frmConnect'
    StorageManager = MainForm.IniPropStorageManEh1
    StoredProps.Strings = (
      '<P>.Height'
      '<P>.Left'
      '<P>.PixelsPerInch'
      '<P>.Top'
      '<P>.Width'
      '<P>.WindowState'
      'GroupBox1.eDbPath.<P>.Text'
      'GroupBox1.eLastRole.<P>.Text'
      'GroupBox1.eLgName.<P>.Text'
      'GroupBox1.eServer.<P>.Text')
    Left = 88
    Top = 44
  end
  object dsCanConnect: TpFIBDataSet
    SelectSQL.Strings = (
      'select rcan from USER_CANCONNECT')
    Transaction = trRoles
    Database = dbRoles
    Left = 212
    Top = 88
    poSQLINT64ToBCD = True
    object dsCanConnectRCAN: TFIBSmallIntField
      FieldName = 'RCAN'
    end
  end
  object dsRoles: TpFIBDataSet
    SelectSQL.Strings = (
      
        'select cast(r.rdb$role_name as varchar(100)) as rdb$role_name, c' +
        'ast(RDB$DESCRIPTION as varchar(100)) as russname'
      'from rdb$roles r'
      'where RDB$DESCRIPTION is not null')
    Transaction = trRoles
    Database = dbRoles
    Left = 210
    Top = 54
    object dsRolesRDBROLE_NAME: TFIBStringField
      FieldName = 'RDB$ROLE_NAME'
      Size = 100
      EmptyStrToNull = True
    end
    object dsRolesRUSSNAME: TFIBStringField
      FieldName = 'RUSSNAME'
      Size = 100
      EmptyStrToNull = True
    end
  end
end
